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83/01/87 (=›\ INSTALLEM ۲ 
ΓΣ INSTRLLEM 
(=) ІНӘУЕС 8 DUP E20 U( IF DROP ELSE 8۵۷۵ ۲ THEN 


{ INSTALL INTRPTS ) 


INSTALL-DOIRD ; 
: FIXINTRPTS 
RESET-IRD SPOFF ; 


: INITSPRITES ( INITSPRITE WORLD ) 
0008 11 ὃ FILL 
4 à 00 SPMEM I сж + 8 
4B à FILL LOOP 
PDN ; 


: DOFF FIXINTRPTS ; 
: DON SPON INGTRLL-DOIRB ; {5 
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( RESET ) 40 VRRIRBLE DORTI 
û #WORMS ۲ HERE 58 RLLDT (=? Wi HERE 58 ALLIT )-( We 
HERE 58 ALLOT )- W3 HERE 58 АШОТ (— W4 
: BRIDGLIDERS PAGE SP! RP! VL D418 C! АМПЕР INITLQ HERRLD 
ὁ $WwORMS ۲ à SEL ۲ DORTI 3518 ! 
Wi INITWORM ۷۵ INITWORM ИЗ ΙΝΙΤΗΌΠΗ Wå INITWORM 
CSBUILT š IF ELSE WCHSET BUILDCHSET 1 CSBUILT ' CLEARF 
> INITSPRITES INSTALLEM THEN 
SUMD PRBE — CLERRF 
INITLO 0 9D C! { NO MESSAGES ) 
4 à DO 1 GWORM INITMOVES LOOP 
4 SWORMS ۲ ( 1 2۳0 C! ( ( CURSOR OFF ) DECIMAL 


( BEGIN (  RUNLDOP ) AGAIN ) 
( RESTORE ( ( FIXINTRPTS ) 
( à ۵ات‎ C! ) ( CURSOR DN 


) ) з DECIMAL 
) : TASK ; IS-FENCE FINIS SAVE TEMP ( PROF } 5 


‚ЕБ ЕНЕ 92 


+A TRY SDFT CHARS 
HEX 


: TRY 180 @ DO I 1 480 + !با‎ LDOP 
CDLRMEM ὁδῷ DISP Pë FILL ; 


18 
; 
: IWDISPLRY 
( SET PLAYER HPDS ) 
( SET PLAYER HPOS ) 
COLRMEM 430 F FILL ( DEFAULT СОН); 


MÀ w S x чыл x 
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> ж = 


< w чус w чыл чш ды Ды s Ó ДЫН ДЫ себ бый < чын 
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SERF 86 


Η 


۱ INSTALLEM 7 

: INSTRLLEM ۲ INSTALL INTRPTS ( 
IRBVED ἃ ( DUP EQO U( IF DROP ELSE ) IROVAL ۱ ( THEN ) 
INSTALL-DDIRD ; 

: ۳1 5 
 RESET-IRD SPOFF ; 


: INITSPRITES ( INITSPRITE WORLD ) 
00808 11 8 FILL 
4 ۵ DD ӘРМЕН I 2# + 8 
40 à FILL LDDP 


SPON ; 
: DOFF FIXINTRPTS يې‎ 
: DON SPON INSTRLL-DOIRG ; 15 


SCRE | 88 


{ RESET ( 4% VARIABLE DORTI 
à $WORMS ! HERE 58 RLLDT (-» Wi HERE 58 RLLDT )-( ۵ 
HERE 58 RLLOT )-( W3 HERE 58 RLLDT )- νά 
: BRIDGLIDERS PAGE SP! RP! VL D418 C! BNDFF INITL8 HERRLD 
à SWÜRMS ' 0 SEL ! DORTI 318 ! 
Wi INITWDORM μὲ INITWORM W3 INITWORM μά INITWORM 
CSBUILT 8 IF ELSE WCHSET BUILDCHSET 1 CBBUILT ! CLERRF 
INITSPRITES  INSTRLLEM THEN 
SUMO FAGE — CLERRF 
1۳1۲۱8 @ Эр C! { ND MESSAGES ) 
4 à DD 1 GWORM INITMOVES LDOP 
4 SWORMS ١ ( 1 2۳۵8 C! ( ) CURSOR OFF ) DECIMAL 
( BEGIN )  RUNLDOP ( AGAIN ) 
( RESTORE ( ( FIXINTRPTS ) 
( û ëFü C! ( ) CURSOR DN ۱ ; DECIMAL 15 


SCORE 3 


32 


\ TRY SOFT 5 


HEX 
: TRY 108 8 DD I I 4۵6 +E! LOOP 
COLRMEM ча DISP C8 FILL ; 


1 
: IWDISPLAY 
( SET PLAYER HPOS ) 
( SET PLAYER HPDS ) 
290۷ 400 F FILL ( DEFAULT COLR ) τ 
1 


SCRE 34 
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2 


< uA ut tuu Tu x c uet x Ó í ΡΨ 
>= = 


H d H H H H H H H H H ἡ H H H di 


aem, un) I, ی‎ qi e, з, ше мы, ше, айт, يي‎ 70%, s 
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w s s бү ` sQ s‏ یه í. `í‏ تمه πήρα x‏ < موه کي يه 
= = 


ην ғ. м, پائ‎ „м ος « 2. شتی‎ зү Ме, Иөз, M. ің, оны, ез. 
HWH Hd H 11 H H H H H H H H H H H di 
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бз 


НЕХ { ID. SMASH аги MRAEBODT ۱ 
: ID. SMASH { NFA --) 
DUP CE ۳ AND 1% 2 FILL ; 
: SMASHEM { --} ( 
CONTEXT 9 8 p 
DUF +R РРА LFA B 
R, ID, SMASH 7 Q= UNTIL 0807 ; 


| 
| 
| 
| 
| 
| 
| 
۱ 
| + МАКЕВООТ ( زب‎ 
|." STARTING " 

| 1 BRIDBGLIDERS CFA ' DUIT ! 

(=) ЗМДӘНЕМ ." HEADS SMASHED " CR 
|  SRVE-SYSTEM ; 

| DECIMAL T 

=) 


FILESCRS 3 


( CODE FOR JOY STICKS ) 
> CODE (FLKBD) 
) BEGIN, FFE4 JSR, @= UNTIL, 
RTS, END-CODE 


( 
( 


| 
| 

| 

| CODE FLKBD XSAVE STX, 
| ۱ (FLKBD) JSR, 
| 5۵۷5 LDX, NEXT JMP, END-CODE 
| CODE ΗΒ! XSAVE STX, | 
| — SEI, 0 # LDA, 0۳82 STA, 
| 2601 LDA, iF 4 AND, 1Ε 4 EOR, PHA, 
| — 8- NOT IF, | (FLKBD) JSR, THEN, 

| FF # LDA, DCO STA 

| ,تم‎ XSAVE LDX, PLA 

| 805108 JMP, END-CODE 


; 


SCRE 98 
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НЕХ ( JD. SMASH SMAGHEM MAKEBODT ) 
: ID. SMASH { NFA --) 
DUP ΓΒ iF AND i+ 2 FILL ; 
: SMASHEM ( --) ) 
CONTEXT @ 8 BEGIN 
DUP УЯ PFA LFA 8 
Я) 1D. SMASH DUP @= UNTIL DROP ; 


: ΜΩΚΕΒΟΟΤ ( -- ) 
." STARTING " 
' BRIDGLIDERS CFA ۲ DUIT ! 
( SMAGHEM ." HEADS SMASHED " CR ) 
SRVE-SYSTEM ; 

DECIMAL :5 


SCR 103 


( CODE FOR JOY STICKS 3 
CODE (FLKBD) ` (118) J 

BEGIN, FFE& JSR, @= NIL, ' (-05) JSR, 
RTS, END-CODE 


CODE FLKBD XSAVE STX, 
١ (FLKBD) JSR, 
XSAVE LDX, NEXT JMP, END-CODE 
CODE 8351 XSAVE STX, 
SEI, @ 4 LDA, 0082 STA, 
2081 LDA, iF $ AND, iF αὶ EOR, PHA, 
0-2 NOT IF, ۲ (FLKBD) JSR, THEN, 
FF # LDA, 0082 STA, 


` ELI, XSAVE LDX, PLA 
وه‎ ДИР, END-CODE 
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( HERRLD ) 

: HERRLD ὦ 14 XY! ." PRESS F7 WHEN READY " 
ü 
0 
0 


l 

l 

| 16 XY! ." 1.0. COPYRIGHT 1983 BY DAVID S MAYNARD" 
| 17 XY! ۰ NEW AGE SOFTWARE 
| 18 ۵ ¿* ERL T 
і 5 

(=) 

(5) 

(Ξ}Η 

(5) 

(5) 

(5) 

(zi 

(5) 

(5) 

(=) 


FILESCRRE 1807 


i STARTUP COD CODE ( ( BASE 8 ) HEX 
i πα Εν f RESET-IRQ 

0 CSBUILT ' SRIDGLIDERS ; 

' WORMS? CFA ۲ QUIT ۱ 


8 
[5653 8004 ۲ 3850 8886 ۲ 30 8008 С! 


... 


i 
| 
і 
| 
| 
ἰ 
i 
i 
| 
| 
| 
| 


۵ «ORIGIN — 8082 ۱ 
FREEZE (ВЕ!) το 
(“ӘК 
(5) 
(5) 
(=) 
FILESCRH 1۵8 
(“ӘК 
(=> 
(=) 
(=) 
(“ЭК 
(=> 
(=) 
(=; 
(“ЭК 
(=) 
(=) 
(=) 
(“ЭК 
(=) 
(=) 
(=) 
ЕПЕВСЕН 1259 


LX 


FU Sue! Su ` jut s‏ غه w w mu a geh tug ο HR‏ مه 
ж‏ > 


> 


өм". سي‎ ας μεν, ы м, ی‎ n, ы, ғ, ος Á... πο s 


03/01/87 


ΘΟ 1986. 
( HERRLD ) 
: HERRLD à 14 XY! ." PRESS F7 WHEN READY " 
Q 16 XY! ." 1.0. COPYRIGHT 1983 BY DAVID 5 MAYNARD" 
8 17 XY! ." МЕМ AGE SOFTWARE " 
818 ۲ .". CR. "3 
38 
SCRE 7 


) STARTUP CODE ) ( BASE ë ) HEX 
: WORMS? PAGE 
INSTRLLEM RESET-IRO 
9 CSBUILT ! BRIDGLIDERS ; 
t WORMS? CFA ۲ GUIT ۱ 


5 


C!‏ 8008 30 ' 8096 3650 ! 8004 قاتا 
+DRIGIN 8882 ۲‏ 8 


FREEZE 4 BASE ! ) 5 


SCRE 8 


X TESTSAVE 
HEX 


FFDS CONSTANT 4# 

FFD CONSTANT 8 

DECIMAL 

)BUDTE" FILENAME 7 

: GAVER ( FROM THRU МАМЕ --) ERROR-LODE ) 
COUNT SETNAM 9 8 8 SETLFS 
уй SPe R) DUP LSB SWAP MSB SAVER CALL DUP . 
?ECODE DROP ; 


TESTSRVE 
û 10818118 HERE FILENAME SAVER ." SAVER =". ; 


سنست 
С‏ 


SCRE 143 
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ας 


\ MT 


ж 


< η ДЫР Rug í ug ` í s s چیه‎ s. ` s s. 


A. «зм м, ښتي‎ чы Q Q. “Q 2 өт s еч Q G Q“ ен, 
H H H H H Ho H id H H H H N H H H 


SER 111 τι Ες” 111 
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۱ C64 10180 003/01/803/02/87 
CODE DOIRO 
PHA, TXA, PHA, TYA, PHA, 
i LDA, PHA, ( SAVE MEM. CONFIG ) 
ЕЗ LA, 1 STA, ( "405" ز‎ 
1 # LDA, 0019 AND, де IF 
FFEA JSR, ( BUMP RTELOCK ( 
ΕΕΘΕ 158. SEAN KEYBORRD ) 
2080 LIA, ۰ ( CLEAR PENDING IRO'S IN ICRI ) 
ELSE, 1 # LDA, 0019 STA, ! BUMP JSR, ' VBI JSR, THEN, 
PLA, 1 5TA, { АЧЕН MEM. CONFIG ) 
PLA, TAY, PLA, TAX, PLA, 
RTI, END-CODE 


19 


A ж 


— < غه‎ w څيه‎ s x Tage “Кын s. Teu خیره‎ `. s. x s 
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n n n H H H H H U H H H H H H ü 


Q w Αλ s“ J τω, γερο,‏ ته ыл”, лы, йы,‏ تې ur)‏ ی 


ӨСЕР 115 FILESCR# 112 


> 


: U.R 8 SWAP D.R | 


ж 


: 5. BASE 8 SPE 50 8 SWAP - ὃ) 1- -DUP δ) 
IF CR." DECIMAL HEX" 
1+ 1 DD CR SP@ I ож + ë DUP DECIMAL 7 .R SPACE HEX 
4 U.R РАСЕ 


LOOP 
ELSE 1 MESSAGE THEN BASE ۲ CR; 


мы S څیه‎ ы Ды غه‎ x. προ s `í Rt xs. جریا‎ 
> = 


ii H Hf H H H H H HH HH H H H H 


P nn Hi end ee м” ی‎ ы, мб, мең, M Men 


SCR 113 FILEOCRHK" 113 
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V MT 


ынды ДЫ ДЫМ څیړه‎ ο دی‎ бар ДА s څيه‎ x s í xs s 
> Ἂς 


w. όν, ымы, κ, 27%, ος бт, ымы, м, „И φετος qat e, мМ s w δος 
H H H H H H H H Ü H H H H H H i 
ж 











ж. غلا‎ зс ж 
em uf πω ον 225. ον өйы, 2. ماس پینځس‎ әб уч, ¿ms уб, اس‎ "s 


H H H H H H H H H H H H ا١‎ о H H 


s. ο”‏ ته ыы” “қы” s"‏ يه s.‏ ته ты” “ων "Ἄρη‏ ېه ره نه من 
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SU RH 


x 


x 


= 


لاه 
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X ИТ 


116 
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116 
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ж “д мб мб , М, ¿P 22% ve, یی‎ . P м” 22 4, 
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114 
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FILESCR# 118 
( INTERRUPT TESTING CODE ) ( BASE 8 ) HEX 
( © VARIABLE CLKLO ) 

CODE BUMP CLKLO INC, ὃ- IF, 
CLKLO 1+ INC, THEN, 
RTS, END-CODE 

CODE FBUMP ۱ BUMP JSR 
NEXT JMP, END-CODE 

(314 CONSTANT 6 

۱۳۴۲۲ VARIABLE 188۷6 

۱۲022۲ DOIRD 

) i # LDA, 0019 AND, 82 IF, 

y ΕΕΒΕ, 1 # LDR, 0019 STA, 

( ۱ BUMP JSR, ' VBI JSR, 

۱ PLA, TAY, PLA, TAX, PLA, RTI, THEN, 


"ТАСМА ) JMP, END-CDDE 
( BASE ۱ ) 18 
FILESCR# 119 


| ) INTERRUPT TESTING CONT ) ( BASE 8 ) HEX 
| CODE INSTALL-DOIRD 
١ SEI, ۱ 00189 LSB # LDA, 
| 180۷2۲ STA, 
| — ' 00180 MSB # LDA, 
180020 1+ STR, 
| FB # LDA, 0012 STA, 
(2 TF ΙΑ; 0011 AND, 0811 STA, 
| 1 # LDA, DOIA ORA, DOLA STA, 
| ELI, NEXT JMP, END-CDDE 
| CODE 8۴52۲-180 SEI 
| Dein LDA, PHA, 8 P LDA, 2818 STA, 
| 180۷۵ LDA, IRGVEC STA, 
|| IRDVAL 1+ LDA, 180۷6۲ 1+ STA, 
| — PLA, FE # AND, DOLA STA, 
| CLI, 8 JMP, END-CODE ( BASE ' ( 15 


FILESCHS 151 


(mA CONT ۰ 02/27/86 
(=)DECIMAL 118 119 HEX THRU 
(=) DECIMAL 75 76 HEX THRU 
| DECIMAL 100 181 HEX THRU 
| ТЕГІМДІ 77 87 HEX THRU 
| ТЕГІМДІ 186 106 HEX THRU 
| X HEX HERE ү 8012 HERE - à MAX ALLOT 
: PAGE 75 
DECIMAL ΒΒ 58 HEX THRU 
۱ FREEZE { fS. CART ( 


—— 
VÀ 


H H# H H H H H سه‎ H 


< ғ, ғ, ,ғ, ығ”, «ος پخ‎ 


' BRIDBLIDERS CFA ! DUIT ! 


< чүл чүс x уе x `. 
an 
t 


FILESCRHS 124 


мын чус w чул s کښمه کا په‎ ` ды ды s w x `. 
ж ж т 


ж, ж өл", μεσο νο, мб οι, πω, (τω, “s ла, жы, G омы, V “s 
H Hu H H H H H H H Ú H H H H HH 
ж 


په 
{ 


) MEMCONFIB ) 
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PLA, RTI, THEN 


JMP, END-CODE 


SCRE 118 


( INTERRUPT TESTING сше ) ( BASE & ) HEX 
( à VARIABLE CLKLD ) 
CODE BUMP CLKLD ІМС, Q= T 
CLKLO 1+ INC, THEN 
RTS, END-CODE 
CODE FBUMP ١ BUMP JSR 
NEXT JMP, END-CODE 
ΕΕΕΕ CONSTANT 6 
FFFC VARIABLE 180۷8 8 
CODE DOIRD PHA, TXA, PHA, ТҮЙ, PHA, 1 LDA, PHA, 
E # LDA, 1 STR, ( «05 ( 
i 4 LDA, 0819 AND, 8 IF, 
ELSE, 1 # LDA, 0019 STA, t BUMP JSR, 
2080 LDA, PLA, 1 STA, PLA, Тау, PLA, TAX 
PLA, 1 sta, ТА TOY, PLA, ТАХ, PLA, 


( BASE ! 


t VBI JSR, 
180۷۵ ) 


ΦΩΝΗ 119 


( INTERRUPT TESTING CONT ) ( BASE ἃ ) HEX 
CODE INSTRLL-DOIRO 
SEI, ١ DOIRO LSB # LDA, 
180۷20 STA, 
١ 00180 MSB ἃ LDA, 
IROVEC 1+ STA, 
FB ἡ LDA, 0012 STA, 
۱ TF # LDA, 2811 AND, 0011 STA, 
1 # LDA, DOIR ORA, DOIA STA, 
CLI, NEXT JMP, END-CODE 
CODE RESET-IRQ SEI 
2818 LDA, PHA, 8 ἃ LDA, DOIA STA, 
180۷0] LDA, IROVEC STA, 
180۷8 1+ LDA, 1807 + STR, 
FLA, FE # AND, DOIA 5 
CLI, NEXT JMP, END-CODE | ym t ) 18 
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X CONT ss: 
DECIMAL 118 118 HEX THRU DECIMAL 111 111 HEX THRU 
DECIMAL 119 113 HEX THRU DECIMAL 75 76 HEX THRU 
DECIMAL 190 101 HEX THRU 
DECIMAL 77 87 HEX THRU 
DECIMAL 196 196 HEX THRU 
۱ HEX HERE U. 8012 HERE - 6 MAX АШОТ 
: PAGE IMODE ; 
DECIMAL 88 BB HEX THRU 


X DECIMAL 97 98 HEX THRU А SRVE-SYSTEM 


DECIMAL 198 108 THRU \ TESTSRVE 
DECIMAL 112 112 HEX THRU ۱ 5. 
: TASK ; IS-FENCE FINIS 19 
V FREEZE ( 88.888 ) 
۶ GRIDGLIDERS CFA ١ QUIT : 
SCRE 124 
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"r sja 

ГӘ ч in uj 

f rz ж 7 

i" (Ω {τ [7 

т теі цен 4 


C 
SUC RH 
-ς RF 


V MT 
V MT 
۱ MT 
N MT 





FILESCR# — 1:7 


VE 
7% 


{=)К 
(=> 
(5) 
(=> 
(=) К 
(=) 
(=) 
(5) 
(“ЭК 
(=> 
(5) 
(=> 
(=) 
(=) 
(=> 
iz) 
τι ΕΞ 1 4 ېه‎ 
(=›К 
(=> 
i dim CDLRMEM 348 CMDVE ; 
(с 
(iH 
(5) 
(=> 
(=> 
(z)H 
(=> 
(=> 
(=> 
(=) 
(5) 
(=> 
(=> 
FILESCRSH 148 
(=) К 
(=> 
(=) 
(5) 
Уды 
(=> 
(=> 
(=) 
(=) К 
(=) 
(=> 
(=> 
(=) К 
{=} 
(5) 
(5) 


149 ۳9۲ات ۱-۳ ۳ 


| ( TEST SOUND ROUTINES ) ( BASE 8 ) HEX 
| : SNDSETUP 

| — 19 D405 С! ( ATACT/DECAY ) 

| Ah (406 С! ( SUSTRIN/RELERGE ) 
| Ə Ə 11 D404 C! ( WV ) 

| 880 0408 C! ( FRED) ; 

| 48 VAR ۷ 

| : ТӨМ SNDSETUP i+ SWAP DO 

| SDLY ë @ DO МООР LOOP 

| I 0488 Γι LOOP + 

| ( BASE ۱ ) 18 


w με «ο, Q м 


SCR 137 
\ М 

SCRHE 144 
V MT 

SECR 148 
\ ۲ 


SCR 143 


( TEST SOUND ROUTINES ) ( BASE 8 ) HEX 
NDSETUP 


19 0485 C! { ATACT/DECAY ) 
44 райб اع‎ ( SUSTRIN/RELERSE ) 
11 D404 C! ) MV ) 
889 0408 C! (FRED) — ; 
48 VAR SDLY 
: ΤΟΝΟ SNDSETUP 1+ SWAP DD 
SDLY @ @ DD NODP LODP 
I раё Ct LOOP + 
( BASE ۲ ) 15 








Πτι ΚΟΓΠΗ 150 


03/82/87 (5) SOUND INTERFACE 02/14/87 
(=}\ HERE Q C, 7 C, E C, CONSTANT 00 
(=): SEVENE )R R R + DUD DUP + + β) +; 


: L64SDUND ( W SR PD F N ) 

( RDSR FIRST THEN WAVEFORM ) 
BEVEN* + [8 8 

۵ D404 R + С: ( SOUND OFF ) 
0400 R + ۲ ( FRED ) 
рай5 R + С! ( RTTRCH/DECRY ( 
D406 R + С! ( SUSTRIN/RELERSGE ) 
D404 R + C! ( WAVEFORM ) 


: ۵ ( — ( САШ SOUND DFF ( 
3 à DD à à à à І CO645DUND LDDP ; 


— 


ndi Hd 


SURE 2 


۱ SOUND INTERFACE 
(ERE 8 7C, ЕС, 15 C, CONSTANT SEVENE 
: SEVENE ور‎ R R + DUP DUP + € ἢ) +; 


: L648DUND ( ۷ SR AD F NO 

( ADSR FIRST THEN RVEFÜRM ) 
ЗЕМЕМЕ + ба ,R 

8 189% R + С! ( SOUND OFF ) 
200 R + ۲ ( FREQ ) 
0405 R +E! ( ATTAEK/DECAY ) 
D406 R + C! 4 SUSTRIN/RELERSE ) 
рафа R> + É! ( WAVEFORM ) 


XSND ( — ) ) ALL SOUND OFF ) 
Q DO ۵ 0 ۵ à I 54500 LOOP ; 


P x 
ез ЕЗ 
د ده دوو وچ‎ 
η El 
ЕЗ e 
Ё ЕЗ 
۹ Г 


М vi 
mm im 
wi m m Wi 
m m M 
М М 
m m 
m М 
mi Ы 
vi М 
"m M 


unc а ابا‎ ug 


DDDDDD 
D 
D 
D 
D 
D 
D 
D 
D 
DDDDDD 


mayriarncdshasea! 


5 Y ν LLI 

а 8 ν vi I 

a e Y ν 1 
a (à wv Ἡ i 
Ё (à ν м T 
AARAA Y м I 
8 à Vy м 1 
Ға 3 м I 
e a ۷ ليا‎ i 
8 ۳ ν LII 
cf Зете - version le 1 


18:57:50 
19:18:35 
farm bype=i 


gavigd‏ سح یر پیات 


DDDDDD 

D D 
D D 
D D 
D D 
D D 
D D 
D D 
D D 
DDDDDD 


Despiei مې‎ 


file epoocleds B6-apr-B7?, 
file printed: c6-—-apr-87, 


Giri یت‎ Буш ІЙ, 


Ceopies-cl, 





FILESCRH 5 


à. ὃ 02/09/84 
J НЕХ CRDSS-CDMBILE 
| ۱ 300 4000 DRG/IMG ۷ SET THE TARGET ORIGIN AND 
۱ CROSS-COMPILE TD MEMORY. 


880 0 085/198 А CROSS-COMPILE TD IBM FILE 

(=) 800 ЕВЫ INIT-USER A DEFINE USER AREA ADDRESS 

| ) ۴۳۴9 EQU EM N END OF MEMORY. ( RESERVE 3 VECTORS ) 
f 


\ Е00й 100 ROM/RAM X GEF RAM START AND INITIALIZED 


\ RAM SIZE 


1۳ TRRGET-WIDTH 


I 
i 
< 


FILESCR# 6 


11/12/86 

۱ C-64 EBURTES 
V COMMON EBURTES 
N COMMON PRIMITIVES 
۱ COMMON USER DEFINITIONS 
۱ COMMON DISK 1/0 
X COMMON HIGH LEVEL DEFINITIONS 
۱ COMMON EXTENSIONS 
X KERNAL CALLS 
\ DISK 1/0 
\ DISPLAY 
\ TERMINAL 1/0 

155 


۱ M 
V COMMON COLD & TASK 


CIMRL 120 121 HEX THRU 
IMAL 7 7 HEX THRU 
DECIMAL 8 42 HEX THRU 
DECIMAL 77 78 HEX THRU 
DECIMAL 71 73 HEX THRU 
43 6@ HEX THRU 
62 67 HEX THRU 
DECIMAL 122 126 HEX THRU 
DECIMAL 127 134 HEX THRU 
DECIMAL 135 HEX LOR 
DECIMAL 136 137 HEX THRU 
DECIMAL 138 HEX LORD 
| DECIMAL 63 HEX LORD 
(=) DECIMAL 1 LORD-USING H:EXT 
ΕΝ FINIS SAVE CC-TEMP 


rH Fh ΠῚ 
з С? 
—4 
š 

C3 


FILESCRH 8 


e START OF 6SXX KERNEL 

| X PRIMARY ENTRY POINT FOR COLD START 
| ASSEMBLER 

| NOP, CLD JMP, 


| X SECONDARY ENTRY POINT FÜR A WARM START. 
(z)NOP, МАМ JMD, 


(=) 
| FORTH 


FILESCRH 4 


91/24/84 


1 


\ INITIAL THREAD TD WARM 
HERE LABEL WRMI 1 WARM E 


? ASSEMBLER 
? HERE LABEL WRM 


WRM1 LSB ἢ LDA, IP STA, X INITIALIZE INTEPRETER POINTER 


| 
| 
{= 
(= 

' 

| WRMI MSB # LDA, IP 1+ 8 
! 

| 

| 

| 

i 

| 

| 


RP: JMP, V BRING IT UP !‏ ؟ 


МСА CONSTANT 71 
BUF1 CONSTANT BUFI 


83/01/87 )2(۱ LBM64 LORD SCREEN - E/R 65ХХ FURTH 


93/01/87 πώ CONT. 


02/27/85 


88/27/85 (-»X SYSTEM WARM ۲ 
i :S (PRODUCT) 


SCRE 3 


۱ CBM64 LOAD SCREEN - E/R 65ХХ FORTH 8 
HEX — CROSS-COMPILE 
۱ 900 2000 DRG/IMG А SET THE TARGET ORIGIN AND 
۱ CRDSS-LOMPILE TD MEMORY. 
۱ πηι : QRG/DB ۰ A CROSS-CDMPILE TD IBM FILE 


ORG/DB ٢ CRDSS-COMPILE TO ІВМ FILE 
\ 808 ЕШ) INIT-USER \ DEFINE USER AREA ADDRESS 
2880 EGU INIT-USER А DEFINE USER AREA ADDRESS 
FFF9 EDU EM ۱ END OF MEMORY. ( RESERVE 3 VECTORS ) 
\ Edd 100 48 


\ SET RAM START AND INITIALIZED 
\ RAM SIZE 


ІР 88-71 
--) 


ӘСЕ © 


\ CUNT. 
DECIMAL 12@ 131 HEX THRU 
DECIMAL 7 7 HEX THRU 
DECIMAL 8 42 HEX THRU 
DECIMAL 77 78 HEX THRU 
DECIMAL 71 75 HEX THRU 
DECIMAL 43 60 HEX THRU 
DECIMAL 62 57 HEX THRU 
DECIMAL 122 126 HEX THRU 
DECIMAL i27 134 HEX THRU 
DECIMAL 135 HEX LOAD 
DECIMAL 136 137 HEX THRU ۱ TERMINAL 1/0 
DECIMAL 138 HEX LOAD \ MISC 
DECIMAL 63 HEX LORD ۱ COMMON COLD & TASK 

DECIMAL 120 LDRD-USING 05518 

X FINIS SAVE ГС-ТЕМР 


۱ Г-Бі 5 

۱ COMMON 5 

۱ COMMON PRIMITIVES 

۱ COMMON USER DEFINITIONS 
۱ CDMMON DISK 1/0 

\ COMMON HIGH LEVEL DEFINITIONS 
X COMMON EXTENSIONS 
۱ KERNAL CALLS 

\ DISK 1/0 

۱ DISPLAY 


SURE 9 


X START OF 55ХХ KERNEL 

X PRIMARY ENTRY PDINT FOR COLD START 
ASSEMBLER 

NOP, CLD JMP, 

\ SECONDARY ENTRY POINT FOR А WARM START. 


۱ NOP, WRM JMP, 
NOP, CLD JMP, 
FORTH 


SUR 14 


۱ SYSTEM WARM START 
:5 {PRODUCT 

\ INITIAL THREAD TD WARM 
HERE LABEL ИЯМ: 1 WARM І 
HERE LABEL WRM 
ASSEMBLER 

WRM1 LSB 4 LDA, IP STA, X INITIALIZE INTEPRETER POINTER 
WRMi MSB # LDA, IP 1+ STA, 

' Rp! JYP, ۱ BRING IT UP ! 
FDRTH 

NSCR CONSTANT МӘС 


BUF1 CONSTANT BUF1 








ο ο... 


FILESCRS Ей 


SPACES D.R D. . D, *BUF Mk x/MOD κ)‏ ۱(ع) 


SPACES à MAX -DUP IF à DD SPACE LOOP ENDIF ; 
D.R (8 SWAP OVER DABS (4 #5 SIGN #) Я) OVER - 5 TYPE ; 
D. Q D. δ. SPALE ې‎ 


e 


01/24/84 


. 1% ü D. 

: M£ 2DuP ion R RBS SWAP ABS μὲ Я) D+- τ 
: #/MOD >R M R} M/ 9 

: 7 1 SWAP DROP. - 
: 


+BUF НОВ! + DUP LIMIT = 


— ποθ 


IF DROP FIRST THEN DUP PREV ё - ; 


FILESCRS 


зі 


{=)\  ?ERRDR (NUMBER) NUMBER -TRAILING 97/27/84 
| : (NUMBER) BEGIN 1+ DUP R Га BASE @ DIGIT WHILE SWAP BASE 6 U+ 
| ей ROT BASE 8 U* + DPL 8 1+ IF DPL 1+۱ ENDIF R> ۲ 


|: к ӨТІН DUP 8 DO DVER DVER + 1 - 28 BL - IF ۷۴ 
ELSE 1 - THEN LOOP τ 

(5) : 5 (PRODUCT) 
(= : 228808 SWAP IF ERROR ELSE DROP THEN ; 

| : NUMBER ( ADDR --) DBL-NUMBER ) ` Recognizes - 7 

| BASE B 8 DUP 1+ Cà 

| ASCII $ = IF 1+ HEX THEN 

١ 9 8 ROT DUP 1+ CR 2D = DUP DR + -i BEGIN DPL 
| (NUMBER) DUP ΓΒ BL - WHILE DUP Cë 2E - و‎ "ERRDR 0 REPEAT DROP 
| 
| 


. R5 HEX 


R$ IF DMINUS THEN R} BASE ' ; 


FILESCRH 


Ee οι 
PAN متا‎ 


NA ЗЕХЕС ?STRCK BLANKS WORD -FIND NFA LFA ID. 

: BLANKS BL FILL ; 
:5 (PRODUCT) 

EXEC STATE ü іс ?ERRÜR : 

25 ار[‎ SPE 58 8 SWAP Ui 1 TERROR 5ре 28 157 
?ERRUR و‎ 

WORD BLK 2 IF BLK ё BLOCK ELSE ТІВ B ENDIF IN Ë + SWAP 

E 68 BLANKS IN +! OVER - R R HERE E! + HERE i+‏ یت 

3 

: -FIND BL WORD HERE CONTEXT в & (FIND) DUP à- IF DRÜP HERE 
LATEST (FIND) ENDIF ; 
NFA 3 - -1 TRAVERSE ; Y LFR-ahead. 
LFA NFA ë - ; X LFR-ahead. 
ID, PAD 20 εξ FILL Dun РРА CFA OVER - 
PAD COUNT iF AND TYPES SPACE ; 
PFA i TRAVERSE 3 + ; Қ LFR-ahead, 


91/25/84 


ms "SN ше 


елу ma 


Ke .. ж, arme, 


PAD SWAP CHOVE 
X LFB-ahead. 


FILESCRHS 54 


(=N FORTH ERASE ?PRIRS BACK BEGIN THEN ENDIF DD LODP — 01/24/84 
| VOCABULARY FORTH IMMEDIATE 
: ERASE ӘРІП ; 


| 
(=) 18 (PRODUCT) 

(=): "PAIRS - 13 ERROR ; 

(=): BACK HERE - ; 

(=): BEGIN ?COMP „НЕКЕ 1 : IMMEDIATE 

(=): THEN ?CDMP 2 788185 HERE OVER - SWAP ! τ IMMEDIATE 
(=): ENDIF [COMPILE] THEN ; IMMEDIATE 

(=): DD COMPILE (00) HERE 3 ; IMMEDIATE 

(zy: LOOP 3 PAIRS COMPILE (LOOP) BACK ; IMMEDIATE 

(=): DUERY ТІВ 8 58 EXPECT IN ۵۱ + 

(zy: L STATE 8۱ : 7 

(=): 1 CB STATE |; 

n DEFINITIONS CONTEXT @ CURRENT ۱ ; 


SCR 4 19 


V SPACES D.R D. . Ч. +BUF Με ٢ */ 


: SPACES 0 МАХ -DUP ІР 9 DD SPACE LOOP ENDIF 
: D.R ? R SWAP OVER DABS (# #5 SIGN ἢ; ἢ) DVER - SPACES TYPE ; 
: D. 9 D.R SPACE ; 

: . 9-20 D. : 


1 8 D. 
: Mk لات‎ ір iR sal SWAP BBS ін ἢ) D+- ; 
: #/MOD R M R} М 
x/ */MDD SWAF ояр’; 
+BUF HDBT + DUP LIMIT = JF DRDP FIRST THEN DUP PREV 8 - 
S {PRODUCT} 


82/27/85 


8658 


wi 


N J JERRDR (NUMBER) NUMBER -TRAILING 09/97/88 
: (NUMBER) BEGIN i+ DUP +R Cë BASE ë DIGIT WHILE SWAP BASE ë Ut 
DROP ROT BASE 8 U+ D+ DPL 8 i+ IF DPL 1+! ENDIF R> REPEAT 


Ñ) و‎ 
: -TRAILING DUP Q 13 OVER OVER + 1 - Cê BL - IF LEAVE 
ELSE 1 - THEN L 
: ERROR SWAP IF gi ELSE DROP THEN ; 
;8 (PRODUCT) 
: NUMBER ( ADDR --) DBL-NUMBER ) X Recopnizes $... AS НЕХ 
BASE ἃ ور‎ DUP 1+ CB 
ASCII $ = IF 1+ HEX THEN 
à à ROT DUP 1+ CB 2D = DUP ور‎ + -1 BESIN DPL 
(NUMBER) DUP Cë BL - WHILE DUP C8 2E - Q ERROR @ REPEAT DROP 
Ry IF DMINUS THEN R> BASE ۲ ; 


UL 
Se сый 


SCR 


۱ ЗЕХЕС 75ТАСК BLANKS WORD -FIND ΝΕΑ LFA ID. 92/27/86 
: BLANKS BL FILL ; 
: 75ТАСК SPG 50 8 SWAP U( 1 728888 SPE 20 7 
?ERROR ; 
:5 (PRODUCT) 
ЗЕХЕС STATE @ 1۵ ?ERRDR ; 
WORD BLK 8 IF BLK 8 BLOCK ELSE ТІВ 8 ЕМІР IN 8 + SWAP 
DET 22 BLANKS IN +! OVER - У R HERE C! + HERE + 
Rm ; 
-FIND BL WORD HERE CONTEXT ἃ € (FIND) DUP Q- IF DROP HERE 
LATEST (FIND) ENDIF ; 
МЕД 3 - -1 TRAVERSE ; X LFR-ahead. 
LFA NFA 2 - \ LFR-ahead. 
ID. РАВ 28 SF FILL РОР PFA CFA OVER - PAD SWAP ΟπΏνΕ 
PAD COUNT iF AND TYPED SPACE ; ۱ LFR-ahead. 
РЕА 1 TRAVERSE 3 + ; X LFA-ahead. 


w“. на эн чи в. 


ЭСЕН e 


X FORTH ERASE ?PRIRS BACK BEGIN THEN ENDIF DD LOOP — 6 
VOLABULARY FORTH IMMEDIATE 

: ERASE 0 FILL ; 

: DEFINITIONS CONTEXT @ CURRENT ! 
;5 (PRODUCT) 


: ?PAIRS - 13 ?ERROR ; 
BACK HERE - 
BEGIN ?COMP HERE 1 ; IMMEDIATE 


: THEN ?CDMP 2 ?PAIRS HERE OVER - SWAP ! + IMMEDIATE 
: ENDIF [COMPILE] THEN ; IMMEDIATE 

: DD COMPILE (DO) HERE 3 s IMMEDIATE 

: LOOP د‎ ?PRIRS COMPILE (ПОР) BACK ; IMMEDIATE 


: QUERY TIB ë 5۵ EXPECT IN 8۱ ; 
: ] STATE δι ; IMMEDIATE 
: ] C8 STATE ! ; 


πα 


FILESCRH 58 
p" ABORT (ABORT) (GUIT) 81/25/84 
| 
| @ TRRBET-WIDTH 
| : (QUID 
| АТМ; 
| AP BLK ۵۰ [COMPILE] [ BEGIN CR RP! QUERY INTERPRET 
| ۱۳ STATE 8 ü= IF ," OK" THEN AGAIN ; 
| 1۳ TRRGET-WIDTH 
(5) 
(=) 15 (PRODUCT) 
(=>): {ABORT} ABORT ; 
(=): ABORT SP! DECIMAL ?STRCM .TITLE 
(=) [COMPILE] FORTH DEFINITIONS QUIT ; 
| 
FILESCRH бй 
rus VECTÜRED WORDS 01/25/84 
| : KEY A (KEY? ; X FOR KERNEL 
i AT МООР  : X FÜR PRODUCT 
| 5 EMIT (EMIT? ; 
|: QUIT (GUIT?) يې‎ 
I s CR (CR) ¢ 
(5) 5 (PRODUCT) 
(2): ?TERMINRL (TERMINAL) ¢ 
(с): ERROR (ERROR) ; 
l 
| 
| 
| 
| 
| 
FILESCRH 62 
81/25/84 


(=) \ COMMON EXTENSIONS 

| 1 CONSTANT TRUE 

| 8 CONSTANT FALSE 

CODE 2% BOT ASL, ВОТ 1+ ROL, NEXT JMP, END-CODE 

CODE 2/ CLC, ВОТ 1+ LDA, 0۲ IF, SEL, THEN, ВОТ 1% ROR, BOT ROR, 
NEXT JMD, END-CODE 

: WITHIN ROT УЯ R )- SWAP R) (= AND; 

: PICK 2+ 588 + 8 : 

МИР; 
? S (PRODUCT) 
): ASCII BL WORD HERE 1+ C8 STATE 8 
у IF COMPILE LIT , THEN ; IMMEDIATE 
уг ROLL i+ DUP PICK SWAP SLIP ; 


aee, 2 s. κά, 


FILESCRS 71 


01/25/84 
۱ SECTOR BUFFER ADDRESS 
X POINTER ТО PREVIOUS BUFFER 


{=)\ COMMON DISK 1/0 
0 VARIABLE USE 
ü VARIABLE PREV 


SCRH 58 


X ABORT (ABORT) (8017) 02/27/86 


0 TARGET-WIDTH 
: (QUIT? 


۱۲ NOOP 3 
۱۶ BLK 0! COMPILE] E BEGIN CR RP! QUERY INTERPRET 
AP STATE ü Й- IF ." ΠΗ" THEN AGAIN ; 

iF TRRGET-WIDTH 


: (ABORT) ABORT ; 

: ABORT SP! DECIMAL ?STRCK ( .TITLE ) 
[COMPILE] FORTH DEFINITIONS BUIT ; 

;5 (PRODUCT) 


SCRE — &u 


۱ VECTORED WORDS 82/27/86 


: KEY ۶ (KEY? ; X FOR KERNEL 
ΝΤ NOOP \ FOR PRODUCT 

: EMIT (EMIT) ; 

: GUIT (QUIT) ; 

: CR (ER) ; 

: ERROR (ERROR) ; 

: SLPRODUCT) 

: TERMINAL — (TERMINAL) ني‎ 


SC RHF 


تج 


N COMMON EXTENSIDNS 02/27/86 

1 CONSTANT TRUE 

0 CONSTANT FALSE 

CODE 2# BOT ASL, ВОТ 1+ ROL, NEXT JMP, END-CODE 

CODE 2/ CLC, ВОТ i+ LDA, OC IF, SEC, THEN, BOT i+ ROR, BOT ROR, 
NEXT JMD, END-CODE 

WITHIN ROT (8 R $= SWAP R> (= AND + 

PICK 2# SPE + 8; 

NDOP ; 

ROLL i+ DUP PICK SWAP SLIP ; 

:5 (PRODUCT) 

: ASCII BL WORD HERE i+ CB STATE 8 
IF COMPILE LIT , THEN ; IMMEDIATE 


SCRE 71 


X COMMON DISK 1/0 02/27/86 
ü VARIABLE USE ۱ SECTOR BUFFER ADDRESS 
ë VARIABLE PREV NA POINTER TD PREVIOUS BUFFER 


0 VARIABLE DISK-ERROR 





ü VARIABLE DISK-ERRDR 
KBBUF CONSTANT B/BUF А BYTES/DISK BUFFER 
KBBUF BPS / CONSTANT SEL/BLK ۱ SECTDRS/DISM BUFFER 
400 KBBUF / CONSTANT B/SUR ۱ DISK BUFFERS/SCREEN 
? 38 CPRODUCT) 
) ВИР1 CONSTANT FIRST \ POINTER TD FIRST BUFFER 
} ЕМ CONSTANT LIMIT A USABLE MEMORY LIMIT 


a „еы 


KBBUF CONSTANT B/BUF А BYTES/DISK BUFFER 
KBBUF BPS / CONSTANT SEL/BLM \ SECTDRS/DISM BUFFER 
400 KBBUF / CONSTANT B/SCR ۱ DISK BUFFERS/SCREEN 
BUF1 CONSTANT FIRST ۱ POINTER TD FIRST BUFFER 
EM CONSTANT LIMIT ۱ USABLE MEMORY LIMIT 


«8 (PRODUCT) 


FILESCRS Ὁ 


αχ. 


(=}\ CONT. 01/24/84 
(5) :5 (PRODUCT) 

(=) 14 CONSTANT MSBSCR 

(=) 

i): «LINE (LINE) -TRAILING TYPE ; 

(=): MESSAGE WARNING @ IF -DUP IF دنا‎ OFFSET 8 B/SCR / - .LINE 
(=) SPACE THEN ELSE ." М5Б# " 

(=): LIST CR DUP SCR ۱ ." SCR $^, i^ 'Q DD 8 

(=) SPACE R SCR ë .LINE ?TERMINAL IF LEAVE ENDIF LOOP CR ; 

(=): INDEX CR 1+ SWAP DO CR I 3 .R SPACE 8 I .LINE 

а JTERMINAL IF LEAVE ۴ ۱008 ; 

| 

| 

| 

| 


FILESCRtH 


TES 
25 


(2) CONT. 01/24/84 
(2) :5 (PRODUCT) 

(=: (LOAD) — BLK 8 OR IN GOR INO! ВК! 

() ."-—)" BK B. INTERPRET R) IN! ἢ ВІК! و‎ 
(=): —) ALDADING IN Q' BLK i+ 

(m  ."--" BLK 8 ; IMMEDIATE 

(2): THRU 1+ SWAP DD 1 LORD LOOP ; 

(=}@ TARGET-WIDTH 

(=) : (EMPTY-BUFFERS? FIRST LIMIT OVER - ERASE (DUIESCE) ; 
(2): (LINE) ۱8 C/L B/BUF */MOD Я) B/BCR κ + BLOCK + СА + 
(=): (ERROR) WARNING 8 8i IF (ABORT) THEN HERE COUNT ۵ 
(=) ." 9 " MESSAGE SP! BLK @ -DUP IF IN 8 SWAP THEN QUIT ; 
(=): (BUFFER) USE 8 DUP ^R «BUF DROP USE ۱ R 8 4 

(=) IF ὃς R ἃ 7FFF AND Q R/W THEN 

(е) R! R PREV! D 2+ و‎ 


V ### ABOVE NOW SUPPORTS AS FEW AS ONE BUFFER жн 


FILESCRHE 74 


01/24/84 


-— 
Γ 


мыт дын дым чүл یه غه‎ eu ue x می‎ дан s. w ده‎ ` 


DNT, 

S {PRODUCT 
(BLOCK? OFFSET ё + +R PREV @ DUP 6 R - DUP + 
IF BEGIN «BUF @= IF DROP R BUFFER DUP R 1 R/W 2 - THEN 
DUP ë R - DUP + ф= UNTIL DUP PREV ! THEN R} DROP 2+ 
DISK-ERRDR ë -DUP IF 

" DISK ERROR " DISK-ERROR 6۲ {ABORT} THEN ; 
: (FLUSH) (FLUSH) EMPTY-BUFFERS ; 
: (UPDATE) PREV 8 ё 8000 OR PREV в ۱ ; 
1۳ TRRBET-WIDTH 


BRUCE WRLKER'S FLUSH, FORTH DIMENSIONS VOL. IV, ND. 
LEAVES BUFFERS VALID AFTER FORCING TO DISK 
(FLUSH) FIRST NSCR ۵ DO 
DUP فا‎ Q( IF DUP ἃ 7FFF AND OVER ! DUP 2+ DVER & à R/W THEN 
B/BUF 4 + + LDOP DROP ; 


"s وص‎ 


2, P. 8 


سے v‏ وه 


H H H H H H H‏ فا H H H‏ زا H H H‏ فا 


κ. м. „зз, v. ығы, мМ, Q “S. тық, жың, М”, G Q... πο .. 2220, 


-FILESCRS 73 


(=à CONT. 01/24/84 


(R/W) ې‎ 


ала; 
(LINE) 
(UPDATE? 
(FLUSH) ; 
(BUFFER) و‎ 
(BLOCK?) ; 
EMPTY-BUFFERS (EMPTY-BUEFERS) - 


R/W 
S (PRODUCT) 
: LORD 
(LINE) 
UPDRTE 
FLUSH 


< чу w “ме x x s “s 
“ас ag ره وي ری‎ πα "Us ως ши 
ور‎ де 


"a —— — — ww H Ú H H HU H H W — 


ж-- ығ 2”. жм. лы, ی‎  -. 


ӘСЕ Ζῶ 


X CONT. 02/27/86 
: MESSAGE DROP یي‎ 
35 (PRODUCT) 
14 CONSTANT М555С9 
: «LINE (LINE) -TRAILING TYPE ; 
: .LiNE 


MESSAGE WARNING 8 IF -DUP IF MSGGCR OFFSET 9 B/SCR / - 
SPACE THEN ELSE ." MSb# " . THEN ; 
: LIST CR DUP SCR ۱ ." SCR #" . 10 ۵ DO CR R 3 .R 
SPACE R SCR & .LINE ?TERMINAL IF LEAVE ENDIF LOOP СЯ ; 
: INDEX CR 1+ SWAP DD CR I 3 .R SPACE ۵ I .LINE 
2ТЕНМІМЕ IF LEAVE ENDIF LOOP ; 
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N CONT. 02/27/86 
: (EMPTY-BUFFERS) FIRST LIMIT OVER - ERASE (GUIESCE) ; 
: (BUFFER) USE ё DUP ΛΒ +BUF DROP USE ۱ R 8 Q( 
IF R 2+ R 8 ТЕРЕ AND ۵ R/W THEN 
R ۱ R PREV ١ R) 2; 
: (ERROR) WARNING 8 @( IF (ABORT) THEN HERE COUNT TYPEQ 
^ MESSAGE 5р! BLK 8 -DUP IF IN 8 SWAP THEN GUIT ; 


S (PRODUCT) 
: (LORD? BLK B ۱8 18 ἢ INQ! ВК! 
, ازس‎ ВК. INTERPRET R? IN ! R} ВК! ; 
p 7.080146 IN 0۱ ВК ۲ 
SUO" ВК B. ; IMMEDIATE 
: THRU 1+ SWAP DD I LORD LOUP ; 
ὢ TRRGET-WIDTH 
: ((LINE)) R C/L B/BUF #/MOD ἢ) B/SCR * + BLOCK + C/L ; 
V жне ABOVE NOW SUPPORTS AS FEW AS ONE BUFFER жн 
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CONT. 82/27/85 
: (BLOCK? OFFSET 8 + (۸ PREV ё DUP 8 R - DUP + 

IF BEGIN +BUF @= IF DROP R BUFFER DUF R 1 R/W о - THEN 

DUP ë R - DUP + @= UNTIL DUP PREV ۲ THEN R} DROP ë+ 

DISK-ERROR © -DUP IF 

" DISK ERROR " DISK-ERRDR 9! (ABORT) THEN ; 

: (FLUSH) (FLUSH) EMPTY-BUFFERS ; 
: (UPDATE) PREV 8 6 80080 DR PREV 8 ۲ ; 
1۳ TRRBET-WIDTH 


N BRUCE WALKER'S FLUSH, FORTH DIMENSIONS VOL. IV, NO. 2, P. 30 
LEAVES BUFFERS VALID AFTER FORCING TO DISK 
: (FLUSH) FIRST NSER Q DO 
DUP 8 @( IF DUP ë 7FFF AND OVER ! DUP 2+ OVER 8 Q R/W THEN 
B/BUF 4 + + LOOP DROP ; 


:5 (PRODUCT) 
SCRH 75 

x CONT. 02/27/85 

: R/W (R/W? 3 

: BLOCK (BLOCKS ; 

: BUFFER (BUFFER) ; 

: EMPTY-BUFFERS (EMPTY-BUFFERS) ; 

15 (PRODUCT) 

: LORD (LORD? 1 

: (LINE) (LINE) ; 

: UPDATE (UPDATE) : 

: FLUSH (FLUSH) ; 
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ккк ARE YOU SURE YOU WANT TO LOGOFF? жее 
YES, DISCONNECT NDW 

NOD! RETURN TO MAIN MENU 

(1 mirute left) Commarid (У, МА) د‎ Y 


Elapsed time this call: 29 minutes. 
Thank ycu for calling! 


Please hang up your phone WCW. 
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